Top 10k strings from General Election Statistics (1992)(Garry Rowland).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /
Back to the directory listing
3 x=(i-yr)*16
3 );" ";n$(t(3
3 Harold Wilson
2 ;"{L9884":
2 ;" NO DATA FOR YEAR ";i$;" ";:
2 )=c(x,y)/s(x,y):
2 );"-";y$(yru,1
2 );" ";n$(t(4
2 ))'"WITH ";i$;" VOTES."
1 y=v(yr)+42
1 y=e(yr)/t(1
1 y=e(i)/t(1
1 y,x;i$;"_ ";
1 y,x;i$;" ";:
1 t(i)> hv):
1 t(i)=t(i-1
1 t(i)=p(i,yr)/p:
1 t(i)< lv):
1 s(x,y)*p-p(x,y)*l> t(1
1 s(t(i),yr)> s(t(i-1
1 s(i,yr)/n> hv):
1 s(i,yr)/n< lv):
1 p(x,y)> t(1
1 p(x,y)< t(2
1 n=h(yr)/100
1 lv=lv-(lv-t(i)
1 lv=lv-(lv-s(i,yr)/n
1 l)+","+i$(l+1
1 i$=y$(yru,1
1 i$=y$(yrl,1
1 i$=y$(yr,2
1 hv=hv+(t(i)-hv
1 hv=hv+(s(i,yr)/n-hv
1 fff,13012602
1 fff,12985081
1 f$="Seats: "+
1 c(x,y)/s(x,y)> t(1
1 c(x,y)/s(x,y)< t(2
1 c(i,yr)+" candidates, "
1 U.K. General Election Statistics. Program by Garry Rowland. This program has been placed in the public domain and may be freely distributed as such.
1 Turn-out page
1 Title page
1 Record breakers
1 PFN-PRINT3
1 PFN-LENGTH3
1 JANFEBMARAPRMAYJUNJLYAUGSEPOCTNOVDEC
1 Input string
1 Initialise PFN routines
1 Initial data
1 Get party in vote order
1 Find year n
1 Election data option
1 Check for numeric input
1 CONSERVATIVELIBERAL
1 Add commas to numeric string
1 =990$)=9901
1 ;"{L9886}Press X to return to menu";
1 ;"{L9886}Key";
1 ;"{L9885}Program by Garry Rowland"'
1 ;"{L9884}Independent";
1 ;"{L9883}~Statistics for years ~1950-1979~"'
1 ;"{L9883}[";
1 ;"{L9882}|U.K. General Election Statistics|"
1 ;"{L9882}Turn-out for years ";y$(yr,
1 ;"{L9882}Record Breakers ";y$(yrl,
1 ;"{L9882}";
1 ;"parties";
1 ;"ignored"
1 ;"] %~V~O~TES~";
1 ;"[ %~SE~A~TS~";
1 ;"Which year? (";y$(yrl,1
1 ;"UP/DOWN CURSOR KEYS FOR NEW PAGE - X TO EXIT";
1 ;"Turnout (1000's)";
1 ;"Turn-out: ";v(yr);"%";
1 ;"Times Book of the House Commons~";
1 ;"Statistics|"
1 ;"Statistics for years ~1984-1987~"'
1 ;"Statistics for year ~1992~"'
1 ;"Start year? (";y$(yrl,1
1 ;"SAVE PROGRAM"
1 ;"RECORD BREAKERS"'
1 ;"Parliamentary Elections, HMSO"
1 ;"PUBLIC DOMAIN May'92"''
1 ;"PRESS X TO RETURN TO MENU";
1 ;"MOST SEATS WON WITH PORTION OF VOTE:"'y$(i,
1 ;"LOWEST NUMBER OF VOTES:"'y$(n,
1 ;"LOWEST NUMBER OF CANDIDATES ELECTED:"'y$(i,
1 ;"HIGHEST TURN-OUT (";t(1
1 ;"HIGHEST NUMBER OF VOTES:"'y$(i,
1 ;"HIGHEST NUMBER OF CANDIDATES ELECTED:"'y$(n,
1 ;"General Election"'
1 ;"Electorate: ";i$;
1 ;"Electorate (1000's)"
1 ;"DISPLAY TURNOUT DATA"'
1 ;"DISPLAY ELECTION DATA"'
1 ;"DEMOCRAT";
1 ;"British Electoral Facts by F.W.S.Craig"
1 ;"% Turn-out"
1 333,11676512
1 23638-82":
1 23637+256*
1 /h(i)*s(t(3
1 -x,v(i)+42
1 -x,e(i)/t(1
1 - Clement Richard Attlee
1 ,yr)=h(yr)-s(1
1 ,i))*p(t(3
1 ,(i-yr)*16
1 *v(yr))-p(1
1 )=s(x,y)*p-p(x,y)*l:
1 );s(i,yr);" elected"
1 );"%) in ";y$(t(4
1 );"%) in ";y$(t(3
1 );" to ";y$(yru,
1 );" to ";y$(n,
1 ),yr)> s(t(3
1 ),n);" OUT OF ";c(t(4
1 ),n);" CANDIDATES (";
1 ),i);" OUT OF ";c(t(3
1 ),i);" CANDIDATES (";
1 ),i);" (";
1 ),i));"%) VOTES.";
1 ),i));"%) SEATS WON WITH ";i$;" (";
1 )+(e(i)-t(1
1 (s(x,yr)/n*88
1 (lv+y*(hv-lv)/88
1 (e(yr)/100
1 'i$;" votes"'(
1 '"LOWEST TURN-OUT (";t(2
1 %333,12660061
1 "JAN","FEB","MAR","APR","MAY","JUN","JLY","AUG","SEP","OCT","NOV","DEC"
1 "CONSERVATIVE","LIBERAL","LABOUR","OTHER"
1 "1992","John Major",651
1 "1987","Margret Thatcher/John Major",650
1 "1983","Margret Thatcher",650
1 "1979","Margret Thatcher",635
1 "197410","Harold Wilson/James Callaghan",635
1 "197402","Harold Wilson",635
1 "1970","Edward Heath",630
1 "1966","Harold Wilson",630
1 "1964","Harold Wilson",630
1 "1959","Harold Macmillan",630
1 "1955","Anthony Eden/Harold Macmillan",630
1 "1951","Winston Churchill",625
1 "1950","Clement Richard Attlee",625
1 Winston Churchill
1 Margret Thatcher/John Major John Major
1 Margret Thatcher
1 Harold Wilson/James Callaghan Margret Thatcher
1 Edward Heath
1 Anthony Eden/Harold Macmillan Harold Macmillan
1 1950 1951 1955 1959 1964 1966 1970 1974021974101979 1983 1987 1992